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APPENDIX 1 



10 



void sw ( ) 
( 

#define iw = 12; 

#definemw = 3: 
#define CONST -0 
#defme LOAD = 1 
#defme GLOBAL = 2 
#definePUTCHAR, = 15/* 

#define GETCHAR = 16 /* 



15 



/* instruction 
width */ 

/* memory width */ 
/* push constant */ 
/* push variable */ 
/* push address */ 
put a character along the 
standard output channel*/ 
get a character from the 
standard input channel */ 



20 



25 



30 



35 



40 



rom program [] 

#include "prog.o" ): ram stack[l«mw] with dualport = 1 ]; 
ram memory[l«mw] unsigned iw PC, ir, tos; 
unsigned mw sp; 



do par it = programme]: PC = PC + 1; 
tos = stack[sp-l]; 



switch (ir) 
case 

CONST par 

stack[sp] = programme]; 
sP = sP+1: 
PC - Pc+1: 
] 

break; 
case LOAD 

stack[sp-l] = memory [tos<-mw]; 
break; 

case STOP break; default : 
while (1) delay; 



/* save top of 
stack to avoid 
two ram accesses 
in one cycle 

*/ 



/* unknown opcode */ 



45 



] while (ir != STOP); 
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u 
a 
O 
ry 
01 
w 

ry 

Hi 

ry 
ru 

M 
C3 
M 



] 

Register transfer level description of simple processor 

5 
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APPENDIX 2 



void main() { char hwswchan; 
char unsigned 8 port: 

par { 

parallel__„port(port); 
SyncGenQ: 



initialiseRam(port); 
par { 

display(hwswchan): sw(hwswchan); 

yi> 



} 

RTL description of main 
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APPENDIX 3 



CALCULATION PROCESS 

5 /* 

* Channel communicating object positions 
*/ chap unsigned 17 position; 

/* 

10 * Channel communicating segment information 

*/ 

chanout unsigned 9 segment; 

/* 

1 5 * Channel communicating button information 

*/ 

chanin unsigned 2 buttons; 

/* 

20 * Overall par 
*/ par 

/* 

* Mass motion 
25 */ 

/* 

* Positions of each mass, 9+8 fixed point 

*/ 

30 unsigned 17 pO, pi, p2, p3, p4, p5, p6, p7; 

/* 

* Velocity of each mass, 9+8 fixed point 

*/ 

int 17 vl, v2, v3, v4, v5, v6, v7; ' 
35 /* 

* Accelerations of each mass, 9+8 fixed point 

*/ 

int 17 al, a2, a3, a4, a5, a6, a7; 

/* 

40 * Sutton status 

*/ 

unsigned 2 button status; 

/* 

* Initial setup of positions 
45 */ 
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10 



p0 = 65536; 
pi = 65536; 
p2 = 65536; 
p3 = 65536; 
p4 = 65536; 
p5 = 65536; 
p6 = 65536 
p7 =65536 



/* 

* Forever 

*/ 

while (1) 
15 { 

/* 

* Send successive positions down position channel 

*/ 

20 send(position, pO); 

send(position, pi); 

send(position, pi); 

send(position, p2); 

send(position, p2); 
25 send(position, p3); 

send (position, p3); 

send(position, p4); 

send(position, p4); 

send(position, p5); 
30 send(position, p5); 

send(position, p6); 

send(position, p6); 

send(position, p7); 

35 /* 

* Update positions according to velocities 

*/ 

pi +_ (unsigned 17)vl; 
p2 +_ (unsigned 17)v2; 
40 p3 +_ (unsigned 17)v3; 

p4 (unsigned 17)v4; 
p5 +_ (unsigned 17)v5; 
p6 +_ (unsigned 17)v6; 
p7 +_ (unsigned 17)v7; 



45 



/* 
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10 



* Update velocities according to accelerations 
*/ 

vl += al - (vl » 6); 
v2 += a2 - (v2 » 6) ; 
v3 += a3 - (v3 » 6); 
v4 += a4 - (v4 » 6); 
v5 += a5 - (v5' » 6); 
v6 += a6 - (v6 » 6); 
v7 += a7 - (v7 » 6); 



/* 

* Set accelerations according to relative positions 

*/ 

al = (int 17)(((p2 » 8) - (pi » 8)) + ((p0 » 8) - (pi » 8))); 
15 a2 = (int 17)(((p3 » 8) - (p2 » 8)) + ((pi » 8) - (p2 » 8))): 

a3 = (int 17)! !(p4 » 8) - (p3 » 8)) + ((p2 » 8) - !p3 » 8))); 

a4 = (int 17)(((p5 » 8) - (p4 » 8)) + ((p3 » 8) - (p4 » e> >; 

a5 = (int 17)((!p6 » 8) - (p5 » 8)) + ((p4 » 8) - (p5 » 8))); 

a6 = (int 17)(((p7 » 8) - (p6 » 8)) + ((p5 » 8) - (p6 » e > ) ; 
20 a7 = (int 1 7)((p6 » 8) - (p7 » 8)); 

/* 

* Get button information 

*/ 

25 receive(buttons, button status); 

/* 

* Fix top point according to buttons 
*/ if (button status & 1) 

30 



p0 = 65536 - 16384; 
) 

else if (button status & 2) 

( 

35 pO = 65536 + 16384; 



else 



pO = 65536; 



40 } 
) 

/* 

* nine drawing 

*/ 

45 ( 

/* 
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* Positions of previous and next massess positions 
*/ 

unsigned 17 prev_.pos, next pos, curr pos; 

/* 

5 * Which line of interpolation 

*/ 

unsigned char line; 

/* 

* Forever 
10 */ 

while (1) 

( 

/* 

* Receive previous mass position 
15 */ 

receive (position, prev posy; 
curr pos = prev pos; 

/* 

* Read next mass position 
20 */ 

receive(position, next posy; 
/* 

* Do 64 lines of interpolation 

*/ 

25 for (line = 0; line != 64; line++) 

( 

/* 

* Send start position of segment 

*/ 

30 send(segment, curr pos » 8); /**width adjustment:17 along 

channel of width 9 so takes bottom 9 
bits*/ 

/* 

35 * Move by appropriate amount (1/64 total change) 

*/ 

curr pos +_ (unsigned 17)(((int 17)next pos - 

(int 17)prev pos) » 6); 

/* 

40 * Send end position of segment 

*/ 

send(segment, curr pos » 8): 



) 



) 



45 
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DISPLAY PROCESS 

5 

/* standard includes */ 

#include "hammond.h" 
#include "syncgen.h" 
#include "stdlib.h" 
10 #include "parallel.tr 

/* 

* Segment information channel */ chap segment; 

15 /* 

* Button information channel */ 
chan buttons: 

/ 

20 * Include dash generated stuff */ 
#include "handelc.h" 

/* 

* Main program */ 
25 void main() ( 

/ 

* Scan positions 
*/ unsigned sx, sy; 

30 / 

* Vdeo output register 

*/ 

unsigned 1 video; 

35 /* 

* Video output bus 

*/ 

interface bus out() video out(Visible(sx, sy) ? 
40 (video ? (unsigned 12)Oxfff : 0) 0) with video spec; 

#ifhdef SIMULATE 

/* 

* Left button input bus 
45 */ 

interface bus in (unsigned 1) button_left() 
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with button white spec; 

/* 

* Right button input bus 

*/ 

interface bus in(unsigned 1) button right() 
with button_black spec; 
#endif 



10 /* 
* 



Vpar { 



Overall par 



15 * VGA sync generator 

*/ 

SyncGen(sx, sy, hsync pin, vsync pin); 
/* 

20 Dash generated hardware 

*/ 

hardware(); 

/* 

* Run-length decoder 
25 */ 

{ 

/* 

* Segment start and end positions 

*/ 

30 unsigned start, end; 

/* 

* Forever 

*/ 

while (1) 
35 { 

while (sy != 448) 

/* 

* Read segment information 

*/ 

40 segment ? start; 

segment ? end; 

/* 

* Get in the right order 

*/ 

45 if(start>end) 

{ 
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par 



end = start; 
start = end;. 

) 



/* 

10 * Make at least 1 pixel visible 

*/ 

if(start = end) 

end++; 



15 /* 

*/ 



25 



Wait 



while (sx != 0) 
delay; 

20 /* 



* Draw a scanline worth 

*/ 

while (sx !=512) 

if ((sx <- 9) >= start && (sx <- 9) < end) 

video = 1; 
else 
video = 0; 



30 ) 

/* 

* Communicate button status 

*/ 

#ifdef SIMULATE 
35 burtons ! 1; 



#else 
#endif 



buttons ! button left.in @ button right.in; 



/* 

40 * Wait 



*/ 

while (sy != 0) 
delay; 



45 
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